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PROGRAM ATTRIBUTES 


TYPE PROGRAM ACTION SYSTEM ACTION 
NOT REUSABLE NONE. ALWAYS LOADS NEW COPY. 
SERIALLY MUST RESTORE ANY WRITTEN- | WILL ALLOW MULTIPLE TASKS 
REUSABLE INTO AREAS TO THEIR (WITHIN THE SAME REGION) 


ORIGINAL CONDITION. ‘| TO USE THE SAME COPY. 
ONLY ONE TASK AT A TIME 
CAN HAVE ACCESS. (VS2 ONLY) 


REENTERABLE MODULE CANNOT BE WILL ALLOW MULTIPLE TASKS 
WRITTEN INTO. TO USE THE SAME COPY 
CONCURRENTLY. 





REENTERABLE CODING 


USE “GETMAIN” FOR: 


SAVE AREAS 

WORK AREAS 

SWITCHES 

DCBs 

SYSTEM-MODIFIED MACRO 
PARAMETER LISTS 


CODE MACROS IN: 


@ REGISTER NOTATION V.1.2 
e LIST AND EXECUTE FORMS 


_REENTRANT CODE 
“USE OF SAVE 


~[  MODULEA | © 













ATTACH © * fe 





— 








LINK C 
RESTORE RETURN 
FREEMAIN 
RETURN 







| SAVE AREA ‘| 
A(X) 


REENTERABLE SAVE AREA CHAINING 


PROGNAME SAVE (14,12) 
LR 2,15 
USING PROGNAME ,2 


LR 3,1 
GETMAIN R,LV=72 
ST 13,4(1) 
ST 1,8 (13) 
LR OB, 


GETMAIN MACRO INSTRUCTION 


[symbol] GETMAIN EC,LV=number,A=address[,SP=number] [,BNDRY= PACE ] 
[symbol] GETMAIN EU,LV=number,A=address[,SP=number] [,BNDR Y= peer ] 
[symbol] GETMAIN  VC,LA=address,A=address[,SP=number] [, BNDRY= { oS \ 
[symbol] GETMAIN VU,LA=address,A=address[,SP=number | BNDRY- | PAGE: | } 
[symbol] GETMAIN  RC*LV=number([,SP=number] -BNDRY={ DELO | ] 


[symbol] GETMAIN  RU°LV=number[,SP=number] BNDRY=} PeLWO My 


PAGE 


NOTE: There are several additional forms of the macro. Refer to the reference manual. 


“MVS Only 
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USE OF THE GETMAIN MACRO INSTRUCTION 


PROCEED2 
PROCEED 1 
MIN 
SIZES 


ANSWADD 


GETMAIN 
LTR 

BZ 

DELETE 
GETMAIN 
L 

CH 

BNL 


DC 
DC 
DC 
DC 
DC 





EC ,LV=16000, AFANSWADD 
15,13 

PROCEEDI 

EP=REENTMOD 
VU,LA=SIZES , A=ANSWADD 
4, ANSWADD+4 

4,MIN 

PROCEEDI 


H ' 8000 ' 
F ' 4000 ' 
F ' 16000 ' 
F'Q' 
F'Q' 


CONDITIONAL REQUEST FOR 16000 BYTES 
TEST RETURN CODE 

IF 16000 BYTES ALLOCATED, PROCEED 

IF NOT, FREE MAIN STORAGE 

ATTEMPT TO GET SMALLER AMOUNT 
LOAD AND TEST ALLOCATED LENGTH 

IF 8000 OR MORE, USE PROCEDURE 1 

IF LESS THAN 8000, USE PROCEDURE 2 


MINIMUM SIZE FOR PROCEDURE 1 
MINIMUM SIZE TO PROCEED AT ALL 

SIZE OF AREA FOR MAXIMUM EFFICIENCY 
ADDRESS OF ALLOCATED AREA 

SIZE OF ALLOCATED AREA 
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[symbol] 
[symbol] 
[symbol] 
[symbol] 
[symbol] 


FREEMAIN MACRO INSTRUCTION 


FREEMAIN 
FREEMAIN 
FREEMAIN 
FREEMAIN 
FREEMAIN 


E LV=number,A=address[,SP=number] 
L,LA=address,A=address[,SP=number ] 
R,LV=number,A=address[ SP=number] 
R,LV=number,A=(1) [,SP=number] 

V ,A=address [,SP=number] 


NOTE: There are several additional forms of the macro. Refer 
to the reference manual. 


[symbol] PGRLSE LA= 


PGRLSE Macro Instruction 


addr 1 


(reg1) A= 





addr2 
(reg2) 








MVS 





High Address 
© System Queue Area 
Common Pageable Link Pack Area 
Area 
Common Service Area 
Local System Queue Area 
Subpoots 229.230 
User User s Private Address Space 
Area 
User's Progratns 
System Nucleus 
Area 
Low Address 





Virtual Storage bavout 
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VIRTUAL STORAGE CONTROL BLOCKS — VS2 





First FBQE FBQE Last FBQE 


FWDPTR FWDPTR 


|} Free Area 4k 
Multiple 
Free Area 4k 
f Multiple 
4K 


Multiple 






Free Area 


TCB Subpoo!l Q Element (1 Per Subpool) 


SPQE SPQE SPQE 
A SPQE 


4} sp | 4 DQE 


New Request Old Request 


2) 





Descripter Q 
Element Free Q Element 


DQE 
0 
,|_1 FOE 4 FQE 
8 
Z A Block 4 High Addr. 
Free Area Within Subpool 


Area Assigned 
to Subpool 


4 
mT" 
rm 
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SVS 


Virtual Storage 


System Queue Area 
u Local System Queue Area (User 1) {| 


Free Pageable Dynamic Area 


fi Pageable (V=V) Region (User 1) ff 
Note: 


the These arrows indicate the direction (high to low or low to high) in - V.2.8 
which storage addresses are allocated for the respective areas. 


High 











Pageable 
Dynamic 


Area 










VIRTUAL STORAGE - VS1 


C PAGEABLE 


SUPERVISOR 










© PARTITION 0 
PARTITION n 


© 
V = R SPACE 


SQA SPACE 







RESIDENT NUCLEUS 


PARTITION n — VS1 


FIXED PQA SPACE 
(SEE 2-41) 


s(IN USE); 


FASTIN TFET TS 


PAGEABLE PQA SPACE 
(FREE) 


PROBLEM PROGRAM SPACE 
(FREE) 


Te 
Kees Ss 
oo tae TA, M 
aE 

PIN 





V.2.9 





V.2.10 


VIRTUAL STORAGE CONTROL BLOCKS - VS1 
Pn TCB 


LS LE a 









© TCBGQE 


Pn Boundary Box Table 


Pn Fixed PQA 


PAGEABLE POA 
PFOE 


FIXED PQA PROBLEM PROGRAM 
FOE PPQE 


PROBLEM PROGRAM 
poe | 
PAGEABLE POA —“ 
GOE 






VS1 


240000 








23F 800 


23F000 800 PROBLEM 


PROGRAM 
N 


| 23F000* 


23E800 


7 PROBLEM 
4 


\ PROGRAM 
\ 
23D800™ 


PAGEABLE 


Ee PARTITION 


23D000 a 


7 
7 PROBLEM 


200000 | 3D000 


‘N 


‘N 
\ PROGRAM 


‘N 
200000 ° 


oO | - 
N 


23E800 
, | 


>O 0 | 


BBX2 


V.2.12 


ee) 
x 


VS1 


23F 7E8 ‘s ___ 240000 








— 23F 800 
ee 
~ PROGRAM 
23F 000 _ 23F000 
23E800 
/ 
/ PROBLEM 
FREE 
x PROGRAM 
23D800 
23D000 


‘| prRoBLEM 


2002F8 | 3CD08 
\ PROGRAM 
\ 
200000 


WHY USE MACROS 


SAVE TIME 

LESS PROGRAMMER TRAINING 
EASIER UPDATE 
STANDARDIZATION 

LOCALITY OF REFERENCE 


TERMINOLOGY 





Ko? Te ge ee ge & ie Ay 
MACRO DEFINITION - pattern from Eo 
which statements will be selected “%") 






MACRO INSTRUCTION - supplies 
specific data 


MACRO GENERATION - process of 
tailoring macro for the specific < ja."" bee 
data supplied 


PRE-ASSEMBLY - time when assembler 
processes macros 


MACRO DEFINITION | 


HEADER = wich) 


PROTOTYPE 





TRAILER Mey 
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MACRO and MEND STATEMENTS 


name | operation | sont 
we > \\ 


must be © MACRO Na t aed 


4 
te y 
ap. he 
t ‘ : 


ND not required 





blank or M 
sequence .. . 
symbol } 
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fi 
L a ier ner 


Ba pad BSR THE! oP resell 
ner Lar 8 Lane PRUE Renan bette fl 








( f J 
Prototype WI ret fol ne 
&OP 1 /&OP2, Haine COMMENTS 


& NAME OPCODE 
se Pre 


¢ Penne 6-<Tr 


a oan 7 Bie 


2o8, Fu) Oye, ae 


at ae POE GOMER AME OSS 


eoyasenvone SEEMS: 
i ; 
zt a 
[> } 
ra PI 
\ ot 
Y 


‘psteaiaiearre e «ye 


RP BR eas al 
ue 
ed 
a 
: : 
; 
a | 


Slt | one 


J 
a °° Hast sais 4 e 
Ts age 





C fee ull ok a 


4 rt 
fe “eau, 
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VARIABLE SYMBOLS 


RAXXXXXX 


&FLD1 
&MULTPLR 
&DIVDND 


SYMBOLIC PARAMETERS =. variable symbols 


declared in the prototype statement of 
a macro definition 
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KEYWORD PROTOTYPE 


&NAM 


MAC2 


INSTRUCTIONS 


XYZ 


ABC 


POSITIONAL and KEYWORD OPERANDS 


&NAME 


same 


not same 


MAC2 


USES 


MAC2 


USES 


MCRO 


MCRO 
MCRO 
MCRO 
MCRO 


oy ie hae | 
ug Pata, #o' gt! bp aha oo ee BGA hs 
rf 4] b Prarie r) ? a 3 ; if Bl af is iM bias 23 je 
beni : twat BO RF a ee 


&OPER1=,20PER2=2,&0PER3=ABC 


OPER1=FLDA 


&OPER1=FLDA 
&OPER2=2 
&OPER3=ABC 


OPER2=4,OPER3=RST 
&OPER1=null character string 


&OPER2=4 
&OPER3=RST 





2 aS Co ae 
£ ee Be vai & Te Be ss 
. ea te kgs awe ‘. 
Me : oe he . aM EPA aNAR OS, 
ae als cat Ty. 
Me 


&OP1,&OP2=7,&0P3,&OP4= 





FLDA,OP2=6,F LDC,OP4=R 
FLDA,FLDC,OP4=R ,OP2=6 
OP2=6,0P4=R,FLDA,FLDC 
OP4=R,FLDA,OP2=6,F LDC 


&OP1=FLDA; &OP2=6; &OP3=FLDC; &OP4=R 


MCRO 


FLDC,OP2=6,FLDA,OP4=R 


&OP1=FLDC; &OP2=6; &OP3=FLDA; &OP4=R A\ 


2 


* 
ie 








BODY OF A MACRO DEFINITION Result of Macro 


Expansion 


TP LISELI, 
Machine Machine 
Instructions Instructions 


Assembler Assembler 
Instructions Instructions 


Model 
Statements Statements with Machi 
rh ! variable symbols ate 
Yh te oh ype j 
Fi Lan, Seb ncsttcl ; Instructions 


In 





Name,Operation 


and/or Operand: Assembler 
Fields Instructions 









Conditional 
Assembly 
Instructions 


Macro (Inner) 

Instructions 

MNOTE M 

: essage 

| Instruction 3 

MEXIT 

Instruction 

f.. 

4 acti i ye ¥7 a A f 
7 en ss ea ia 


Comments 
Statements 





Processing 
Statements 





Ordinary =: 


~ 


Comments 
Statements 
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MODEL STATEMENTS 


MACRO 

MAC2 &FLDA, &FLDB, &FLDC, &FLDD 

LA 3,4(3) machine instruction 

LA 5, &FLDC machine instruction 

MP &FLDA,&FLDB with variable symbols 
&FLDC DC C’&FLDD’ assembler instruction 

MEND 


MAC2 FLD1,FLD2,FLD3,XYZ 


+ LA 3,4(3) 

+ LA 5,FLD3 

+ MP FLD1,FLD2 
+FLD3 DC CXYZ’ 
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y 
4 


pee 


¥ 
E 
i 


x 
pee tte 
\ * 


% 
g 
a a i 
. x & 
bs ; 4 : haa? 5, if Xs 4, 
at WAR app APOE bana, 
Pde. se ee 


oe 


y 


INSTRUCTION GENERATION 


a 


My 
MODEL STMTS of GENERATED U 
MACRO DEFN INSTRUCTIONS 
can contain must contain 
ORDINARY SYMBOLS | VALID OPCODES 
VARIABLE SYMBOLS _ OPERANDS 
Combination of 7 LABELS 
ORDINARY and VARIABLE 
SYMBOLS 
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/\ je of sores oa 
hog “ F ; 
/ 1 Ve Cee gh ett 
i i t ; & sel a foe Vays ttee af aly 





spine . 7 sates i 4 
a ae Cy ’ gf € 


ie 


% 





i 
j 


n, error message’ 


* wn Fy, 


Dat ds 


H i? Baths atin, 
¥ rn Ae if 





, error - default severity code’ 
n=1 


- 
é 
’ 
rt 
o 
i eo 
va 
a 
ant ee TNO 
a hg 
: - . 
My ‘ \ J 
%, ‘ hom 4 
x 8 } 
a i is | 
‘| ‘ 
tw ate ‘, P 
A 


é 


comment - no an error’ 
fe 


« 





f 
{ 





‘, Me 
Wht 
vhs, t 
hs, 

wt 


V.3.12 
LE LS IIE ETE TT TE ES SS Ae TE 2 ETS SERIE ESP ES ES REE TES SIT NEE ICEL O OEE ETT 


-MNOTE EXAMPLES 


MNOTE —_ 3,‘INCORRECT LENGTH,’ 
MNOTE 3, ‘INCORRECT LENGTH FOR &FLDA’ 


will be replaced by 
corresponding field in 
macro instruction 


MNOTE , GENERATION WAS TERMINATED" 


severity code of 1 
MNOTE ‘RESULT WILL BE PLACED IN &RESULT4’ 





MEE, 
apni, 
ar 
Bee 


mS 
He 
gi 2 
Pen cael 
an 
Sgt. 


V.3.12a 





wag 
yore 


: 


: [ COMMENTS 
. i. 


“)|* THIS COMMENT WILL NOT APPEAR ON SOURCE LISTING 


RF oy 
5 “ 
eof pran gpeinnie 


ae 
ce 
3p 

: 


“tay 
Mie ky 
i 
af 

Ry 
§ oa 

sy BL 
Aah 


* THIS COMMENT WILL PRINT 


* &FLDA WILL NOT BE REPLACED BY CORRESPONDING OPERAND 
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ISEQ 
EJECT 
PRINT 


SPACE 
TITLE 
COMMENTS 





PLACEMENT OF 
MACRO DEFINITIONS 
IN SOURCE PROGRAMS 


START 0 
® 
® 
® 
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ADD MACRO TO SYS1.MACLIB 


//[ADDMAC 


//STEP1 


//SYSUT1 
//SYSUT2 
//SYSPRINT 


//SYSIN 


a 


oy, 
/* 


JOB 
EXEC 
DD 
DD 
DD 
DD 
ADD 


MACRO 
NEWMAC 


MEND 
ENDUP 


PGM=IEBUPDTE,PARM=MOD 
DSN=SYS1.MACLIB,DISP=OLD 
DSN=SYS1.MACLIB,DISP=OLD 
SYSOUT=A 

DATA 
LIST=ALL,NAME=NEWMAC 


&OP1, &OP2 
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POSITIONAL MACRO -- DIRECT SUBSTITUTION 


&NAM 
&NAM 


ADD1 


+ADD1 


00 W > 


MACRO 

ADD1 &F1, &F2, &R, &P1, &P2 

PACK &P1, &F1 

PACK &P2, &F2 macro 
AP &P1, &P2 definition 
UNPK &R, &P1 

MEND 

ADD1 A,B,C,D,E macro instruction 
PACK D,A 

PACK E,B generated 
AP D,E code | 
UNPK C,D 

DC C’123’ 

DC C’456’ 

DS CL3 

DS CL2 
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KEYWORD MACRO -- DIRECT SUBSTITUTION 





MACRO 
&NAME  MULT1 &FLD=, &NUM=2, &RESULT= 
&NAME PACK &RESULT, &FLD 
MP &RESULT,=P’&NUM’ 
. MNOTE ‘&FLD MULTIPLIED BY &NUM’ 
YO * &FLD WAS MULTIPLIED BY &NUM \ 
\3")* 07/02/73 
MEND 
START | 


TWO MULT1 FLD=A,RESULT=B 
+TWO PACK BA 
: MP B,=P‘2' 
+ A MULTIPLIED BY 24-7 
+* &®FLD WAS MULTIPLIED BY &NUM 


A DC C'123’ 
B DS PL3 
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ATTRIBUTES 





uss a 


: 2, ~ 
aft ae ; 
q we 
a Stes f ‘ gr 
ane / 
od ran 
$ an 
0 'y v 
a 
Si Sees i, 


TEGER?< \ - 
\ ” 
ee ee 


wi 
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TYPE ATTRIBUTE 


FLDA DC C'1234’ 

FLDB DC F°14’ 

FLDC DS H 

FLDD DC A(FLDA) 
CCW1 CCW  X‘05", «,X'00",4 
MAC1 ABEND 001 


TYPE OF 


FLDA EQ 
FLDB EQ 
FLDC EQ 
FLDD EQ 
CCW1 EQ 
MAC1 EQ 


<~<_s7y 5710 
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USE OF TYPE ATTRIBUTE = + 


fi. 
zt i f Ar 
Cy feud 
{ Hyer” ee 
ro? ~ 
rd ewan 
Pal 





DATA TYPE 
IF T’&FLDA IS NOT ‘P’ 
- WRITE ERROR MESSAGE AND 
| TERMINATE GENERATION 
OR - BRANCH TO CODE TO PACK DATA 


MISSING OPERAND pe 
IF T’'&OP2 IS ‘O’ ; } 
- WRITE COMMENT AND USE DEFAULT aa 
OR -WRITE ERROR MESSAGE AND J 


TERMINATE GENERATION 


VALUE SUBSTITUTION 
IF T’FLD 1S ‘H’ 
- MODIFY CODE TO REFLECT 
HALFWORD INSTRUCTIONS 
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LENGTH ATTRIBUTE 


FLDA DC C'1234’ 
FLDB DS H 
FLDC DC FL2‘14’ 


MAC ABEND 002 
INST LR 3,4 
LENGTH OF 

FLDA EQ 4 
FLDB EQ 2 
FLDC EQ 2 
MAC EQ 0 
INST EQ 2 
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USE OF LENGTH ATTRIBUTE 
VALID LENGTH 
IF L'®MULT >) 8 
- WRITE ERROR MESSAGE AND 
TERMINATE GENERATION 


DETERMINATION OF FIELD SIZE 
ADD L’&MULT and L’&MCAND TO 
DETERMINE SIZE REQUIRED FOR 
PRODUCT 
SUBSTITUTION INTO LENGTH FIELD 


FLDA DS CL(L’DATA) 
MVC FLDA(L’&FLDB), &FLDB 
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COUNT ATTRIBUTE 


shoes’ 





oe 


MACRO1 —-&OP1,0P2,&0P3,&0P4,80P5_<S" © 


MACRO1 = OPERAND1,0P2,,2,(14) ( (113) \f ] 


K’&OP1 EQ 8 
K'&OP2 EQ 3 
K'&OP3 EO 0 
K'&OP4 EQ 1 
K'®OP5 EQ 4 
ti s 
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ATTRIBUTES 


TYPE IDENTIFIES THE - TESTS FOR DATA TYPE 
T’ TYPE OF DATA - VALUE SUBSTITUTION 
REPRESENTED - CHECK FOR MISSING 
OPERAND 
LENGTH NUMBER OF BYTES THAT - SUBSTITUTION INTO 
Le DATA OCCUPIES LENGTH FIELDS 


COMPUTATION OF 
STORAGE REQUIREMENTS 


SCALING REFERS TO DECIMAL PT. - TESTING AND REGULATING 
s’ POSITION | DECIMAL PT. POSITION 
SUBSTITUTION INTO A 
SCALE MODIFIER 


INTEGER A FUNCTION OF LENGTH - TO KEEP TRACK OF 
I’ AND SCALING ATTRIBUTES SIGNIFICANT DIGITS 
COUNT NUMBER OF CHARACTERS - SCANNING CHARACTER 


K’ REQUIRED TO REPRESENT STRINGS 
DATA - INDEXES FOR SUBSTRINGS 


NUMBER NUMBER OF SUBLIST - FOR SCANNING SUBLISTS 
N’ ENTRIES INA MACRO 
INSTRUCTION OPERAND 
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aUNEARSSIM BaMANY PO MI Bohe Cee 





US 


BRADDR ANOP 


BACK 
MEND 


UNCONDITIONAL BRANCHING 
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AIF - eat aiiay Branch ») |. 


- 3 Z ied sai 
ha My an e ttt Ae i. ai f : 1 he 
8, a3 y a, “ 
MN" - yj Nes wr 


AIF (T'RELDA | NE ‘P’) . PACK 
anes test to see if code is to 
Lv Ae qu be vie eee 


"¥) 
A 2 
Me fy sero C3 h: q ca 


AIF (&COUNTER EQ 10). ENDLOOP~ 
loop control 
Ee 


pee” 
AIF (T’&FLD EO ‘O’).ERROR1 
test for error condition. 


AIF — (‘FLDX’ EQ ‘NE’).NOTEQ 
test for actual value 
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EDITING CAPABILITIES 


CHKF2 


MACRO 
ADD1 
AIF 
AIF 
AIF 
AIF 
AIF 
MNOTE 
MEXIT 
AIF 
MNOTE 
MEXIT 
AIF 
MNOTE 
MEXIT 


-GENERAT ANOP 


&NAM 


PACK 
PACK 
AP 
UNPK 
MEND 


GF 1, &F2,&R,&P1,&P2 
(T’'&F1 EQ ‘0’).MISSOP 
(T’&F2 EQ '0O’).MISSOP 
(T’&R EQ *O’).MISSOP 
(T’'&P1 EQ ’O’).MISSOP 
(T’&P2 NE ’O’).CHKF 1 
4,"MISSING OPERAND’ 


(T‘&F1 EQ ‘Z’).CHKF2 
4,°&F1 NOT ZONED’ 


(T‘&F2 EQ ‘Z’).GENERAT 
4/&F2 NOT ZONED’ 


&P 1, &F 1 
&P2,&F2 
&P 1, &P2 
&R ,&P 1 
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USES OF SET SYMBOLS 


.LOOP 


CONT 


MACRO 


Add 1 to a counter 

AIF (&COUNT LE 10).LOOP 
Set switch to 1 if &OP1 missing 
MNOTE ,’OP1 MISSING’ 

Set switch to 1 if &OP2 missing 


MNOTE ,’.OP2 MISSING’ 


AIF (&SWITCH EQ 0).CONT 
MEXIT 
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. pDECLARATION OF SET SYMBOLS 





(SrLCLA  &A1,&A2,8&A3,8A4 Ril 
—LCLB &SW1,8SW2  (urerd 


, LCLC &CHAR1,&CHAR2 








&SW1  &SW2 


&CHAR1 &CHAR2 


Examples of Arithmetic Expressions 


+——8&A 

®A+—&B 

—*BA INVALID 
RAB | INVALID 
2110+ &C) INVALID 
&At+T&B*&C *(10—&D) . 
&®A + &B INVALID — 
& A+B ‘101’ «2 — (& C/2) 
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’ oe 
x eee 
\Y | 
o fe 
% ;) : 
ne 
“ 
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SETASTATEMENTS _, 


a x 
ms yf 
he ff & 
Ao Bs q iG: 4 
woo } i ae e tse se *, ve be 
eg { F he Tas a. ppt f A a 
| Der gh ee wow 43 Ponstt 


wo tk 
sy Bee 
A ae a 


— seta aeg ‘ * 
6 ia ee an ae 4 wee Eat - 
yr Apo oe fA ‘ hey 
( < e a SS 4 3 i 
a a j 


ae 4 
a if Aaa 


LCLA BAI, BA2, 8A3, &A4 


&A1 SETA 10 

&A2 SETA BA 1 

&A3 SETA K‘&FLDA 
&A4 SETA 2*K'&F LDA 
&A3 SETA BAZ—1 po 
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LOOP CONTROL 


MACRO 
FULLDC &NUMBER 
LCLA &COUNTER a 
.LOOP ANOP oe 
&COUNTER SETA | - RCOUNTER: Bil. ie 
~ AF (&COUNTER GT &NUMBER). END’ 
~ DC FO ’ : | 
‘AGO LOOP | ee mn ¢ 
.END MEND-...-- — a 
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2 , 
eS rs 

. 3 

L/ 


SETC FORMATS 


&C1 
&C2 
&C3 
&C4 


LCLC 
SETC 
SETC 
SETC 


SETC 








“ABC’.‘ABCDE 


&C1 ,&C2,&C3,&C4,&C5 
T'RFIELD {type attribute * 
‘ABC’ 
‘ABCDE’(1,3 
‘ABC’.‘DEF’ \. 

or | 









F"(4,3) 


: fp 








V.3.33 
SETC 
VALUE OF &A1 VALUE OF &C1 

&C1 SETC ‘&AT1’ 

where &A1 is 

a SETA symbol 
&C1 SETC ‘—1’ 
&C1 SETC ‘002’ 
&C1 SETC ‘&A1+4’ 
&C1 SETC ‘&&A1’ 

V 3.34 


SET B 


&B1 
&B2 


&B3 


SET B 


SET B 


; 
i 
&e 


&B1, &B2, &B3 
0 binary value 
(1 ) binary value in parenthesis 


(T’'&FLDEQ‘F’) logical expression 








V 3.35 
LOGICAL EXPRESSION 
can be 
arithmetic exp ” arithmetic exp 
or 
EO 
NE 
character comparandgd GT character comparand 
LT 
GE 
LE 
or 
SET B variable symbol 
or 
0 
or 
1 
or a combination using logical operators — AND, OR, NOT 
V.3.36 


(&A GT 100 OR ‘&C* EQ 'R’) 


(T’&OP1 EQ ‘F’ AND T‘&OP2 EQ ‘F’) 


FALSE 


TRUE 


(&COUNT LT 10 OR NOT (T‘&OP1 EQ T’&OP2)) TRUE 


wh ere! - 

value of 
&A 
&C 
T‘&OP1 
T’&OP2 


&COUNT 


LOGICAL EXPRESSIONS 


MACRO 
&NAME ADD 5 
LCLB 
AIF 
MNOTE 
&SWITCH SETB 
.CHK2 AIF 
MNOTE 
&SWITCH SETB 
CHK3 AIF 
MNOTE 
&SWITCH SETB 
.CHK4 AIF 
MNOTE 
&SWITCH SETB 
CHKS AIF 
MNOTE 
&SWITCH SETB 
OK AIF 
- MEXIT 
.GEN ANOP 
&NAME PACK 
PACK | 
AP 
UNPK 
MEND 
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BINARY SWITCH 


&OP1, ROP2, ROP3, ROP4, &ROPS 
&SWITCH 

(T’'&OP1 NE ‘O’).CHK2 
,OPERAND 1 MISSING’ 
1 

(T’'&OP2 NE ’0’).CHK3 
,OPERAND 2 MISSING’ 
1 

(T’&OP3 NE ‘0’).CHK4 
OPERAND 3 MISSING’ 
1 

(T’&OP4 NE ’‘O’).CHK5 
,OPERAND 4 MISSING’ 
1 

(T’&OP5 NE ‘O’). OK 
,OPERAND 5 MISSING’ 
1 

(&SWITCH NE 1).GEN 


&OP4, &OP 1 
&OP5, &ROP2 
&OP4, &OPS 
&OP3, &OP4 


V.3.38 


GLOBAL SYMBOLS BETWEEN MACRO AND OUTSIDE 


MACRO 
LOADA 
GBLA 
RA SETA 
& NAME L 

RA SETA 


& NAME 


GBLA 
CSECT 
LOADA 
L 


ONE 
FIRST 


END 


any VA SANS DELETE AM yy, 


Generated Cod 
FIRST LOADA _ 
+FIRST L 

L. 


ta ORE 


armen 


‘&WD 
BA 


hi: 
a 
{ = 
ee 
ah oe 
ae AES 4 
rile ie 
wast ; 
NUM 7? | 
Bae H 
woh at H 
Wee te agua ne 
&ANEW | 
e iy 
i 
yy 
ae 
Dad 
< 
V 
Ppt 
as 
ui 
4 > 
i 


Ud i BY ee ce BMAD as, MAY dug ae te 
csepanerTn rn ME IOS ws 
pttsy 2.05 SNES ANTIORT A TIES Pag ; 
prorrgeel apboaittty 2 ep HH 


“ 
Ay 


| 


en PAnv in nee 
ug canny 


, 


| NUM ~ 
& 4 um: 
5,NEW 


f 


f 


sph DEE EN LEP S, _ 


a 
2 


V3.39 





GLOBAL SYMBOLS BETWEEN MACROS 


MACRO 


& NAME LOADA 
GBLA 
AIF 

&A SETA 


&NAME 
&A 


&A 
«NEXT 


&A 


FIRST 
+FIRST 


ANOP 
L 
SETA 


MEND 
MACRO 


LOADB 
GBLA 
AIF 
SETA 
ANOP 
L 

SETA 
MEND 


LOADA 
L 
LOADB 
L 
LOADA 
L 


LOADB. 


L 
END 


&WD 

&A 

(&A GE 4).NEW 
4 


&A,&WD 
&At+] 


&WD 

&A 

(8A GE 4).NEXT 
4 


&A,&WD 
&A+1 


BEGIN 
4,BEGIN 
NEXT 
5,NEXT 
FULL 
6,FULL 
TOTAL 
7,TOTAL 


FIRST 
V.3.40 


- MACRO 





MOVE &TO, &FROM 
MVC &TO(1), FROM (1) SUBLISTS 
MVC &TO(2), &FROM(2) and 
MVC &TO(3), &FROM (3) SUBSCRIPTS 
MVC &TO(4), & FROM (4) 
MVC | &TO(5), &FROM(5) 
MEND 
MOVE (A1,B1,C1,D1,E1), (A2,B2,C2,D2,E2) 
+ MVC A1,A2 
+ MVC B1,B2 
+ MVC C1,C2 
+ MVC D1,D2 
+ MVC E1,E2 
V.3.41 
ADD A VARIABLE NUMBER OF FIELDS 
MACRO 
ADD -&REG, &FLDS 
LCLA &COUNTER 
&COUNTER SETA 1 | 
.LOOP ANOP 
AIF (T‘&FLDS(&COUNTER) NE ‘F’).ERR 
A &REG, &FLDS(&COUNTER) 
&COUNTER SETA &COUNTER + 1 
AIF (&COUNTER LE N’&FLDS).LOOP 
AGO END | 
ERR MNOTE 4,'FIELDS MUST BE FULLWORD’ 
.END MEND 


V.3.42 


SUBSCRIPTED SET SYMBOLS 


LCLA &A(5 0 0 0 0 0 
LCLB &B(8) 0o;07;0;7; 0107040 0 
GBLC &C(4) null null null null 


&A(3) SETA 34 
&B(1) SETB 1 
&C(5) SETC ‘ABC’ INVALID 


null null null aull 
V.3.43 
Concatenation 
RESULT 
&A &B &A has value FLD FLDB 
&B has value B 
BAX FLDX 
SAVE &A SAVE FLD 
&A.(2) FLD(2) 
P’R 1. &F’ &I has value 9 P’9.5’ 
&F has value 5 
P’R LD. &F’ P‘95’ 
P’Rl&F’ | P‘95’ 


V .3.44 





&NAME COMP &A,&B,&BR,&REG 
LCLC &TY 
AIF (T’&A EO T‘&B).TYPEO 
MNOTE 4,,OPERANDS INVALID TYPE’ 
MEXIT 

ERR MNOTE 4,,MUST BE F OR H’ 
MEXIT 

.TYPEQ AIF (T’&A EQ ‘F’).FULL 
AIF (T’'&A NE ‘H’).ERR 

&TY SET C ‘H’ 

“FULL ANOP 

&NAME L&TY &REG,&A 
C&TY &REG, &B 
BC 8, &BR 
MEND 


CONCATENATION EXAMPLE 


V.3.45 


DATE and TIME 


MACRO 
DATETIME 


MNOTE *'DATE  &SYSDATE - - - TIME &SYSTIME’ 


MEND 
START 0 


DATETIME 
+ DATE 07/12/73 - - - TIME 11.20 


V.3.46 





&SYSPARM | | 


/ISTEP EXEC ASMFC,PARM=SYSPARM(TEST) a 





a 
ae 
% 
ng ae 
5 ee ee y 
wot Nas } My 
t Oy, : 
Lv : 





| 4 a ; 
an Y a 
f\ : : iy * 
Pty of 
M C 1 FA 7 ye hey 
ow i¥ 
o Ss os . 
we PO % 
ni : od hk , 
ot s 


AIF (&SYSPARM NE ‘TEST’).SKIP\" ¥ 


# 


MNOTE *,’TEST &SYSDATE’ .“ { 
SKIP ANOP Pp 






MEND 





V.3.47 





i 


MACRO 
MAC2 


DC A( &SYSECT) 


Moxy 
ay 





V.3.48 


USE OF &SYSECT 


MACRO 
MACI 
¥ 
TWO CSECT (Macro needs to generate its own CSECT 
= for some reason) 
&SYSECT CSECT (Before macro-generation is done, it is 


necessary to ‘‘restore’’ user’s CSECT, so 
MEND_ code AFTER the macro call will be in 
same CSECT as before) 











PROG1 START O 
MACI 
+TWo CSECT 
+ ; 
+PROGI CSECT 
V.3.48a 
&SYSLIST A up Ignare) 
NAME MAC6 FL 1,FLD2,,(A,B,C),-FLD5 macro 
| “a instruction 
&SYSLIST(2) FLD2 
&SYSLIST (3) null 
&SYSLIST (4,1) A 
&SYSLIST(6) null 
&SYSLIST(0O) NAME 
N‘ &SYSLIST 5 
N’ &SYSLIST(4) 3 
V 3.49 


&P1 &SYSNDX 
AREA&SYSNDX 


+ TWO0001 
+ AREAOOO1 


+ TWO0002 


+ AREA0002 


&SYSNDX 


MACRO 

MAC 8 &P1, &P2 
DC F’&P2’ 
DS F 

MEND 

START 0 


&SYSNDX 
fo is 
0000 


MAC8 TWO,2 


DC Pe. 


MAC8 TWO,20 


DC F*20’ 
DS F 


V.3.50 


NESTED MACROS 


&C 


&B 


+FLDB 


MACRO 
OUTER 
LCLC 
SETC 


INNER 


MEND 
MACRO 


INNER 
L 


DC 
MEND 


START 
OUTER 


DC 


&P1, &RKEY 1=,&P2 
&C 
‘ABC’ 


&P1 &KEY1,&C 


&A, &B, &C 
3, &A 


C’ &C’ 


0 
FLDA, KEY1=FLDB, FLDC 


3, FLDA 


C’ABC’ 


V.3.51 





PROGRAM STRUCTURE 


SIMPLE 


SINGLE LOAD MODULE 
LOADED INTO CORE AS AN ENTITY 


PLANNED OVERLAY 


SINGLE LOAD MODULE 
SEGMENTS OTHER THAN ROOT SEGMENT BROUGHT 
INTO CORE WHEN NEEDED 


ALL SEGMENTS WERE PROCESSED BY THE 
LINKAGE EDITOR AT THE SAME TIME 


DYNAMIC SERIAL 


MULTIPLE LOAD MODULES 


EACH LOAD MODULE WAS PROCESSED BY THE 
LINKAGE EDITOR SEPARATELY 


COMMUNICATE BY PASSING PARAMETERS 


SUBPROGRAMS LOADED WHEN NEEDED INTO 
DYNAMIC LOCATIONS 


DYNAMIC PARALLEL 


PARALLEL EXECUTION OF SUBPROGRAMS 





V.4.1 
PROGRAM DESIGN FACTORS 
QUESTION VS ANSWER 
REPETITIVE ROUTINES? PROGRAM ONCE AS 
SUBROUTINE. WILL 
BE HANDLED AUTO- 
MATICALLY BY SYSTEM. 
TOO LITTLE MAIN STORAGE? OVERLAY OR 
TOO LARGE A PROGRAM? DYNAMIC STRUCTURE. 
MULTIPLE USAGE? REUSABLE AND 
(SERIAL OR CONCURRENT) REENTERABLE MODULES. 
| ete 
NOT MUCH PROGRAMMING SEGMENTIZE PROGRAM. 
TIME? USE SEVERAL PROGRAMMERS. 
REASSEMBLE PROGRAM AT 
USER'S CHOICE OF SOURCE, 
LINK EDIT, OR EXECUTE TIME. 
MORE THAN ONE LINKAGE EDITOR. ripe 


LANGUAGE NEEDED? 





MODULE SEARCH LOGIC 


START 


SEARCH 
JPA 


NO YES 


ve © 
ie DCB #0 
Cs) SEARCH 


NO SEARCH 


JOBLIB SPECIFIED 





LPA 





PVTLIB 










SEARCH SEARCH]. yo ¥ YES 
LPA JOBLIB 7 NO YES 
CDE’s 
NO YES 
SEARCH 
LINKLIB 


NO YES 


ABEND 
806 





V.4.3 


LOAD and DELETE MACRO INSTRUCTIONS 


[symbol] LOAD EP=symbol[,DCB=dcb address] 


[symbol] DELETE EP=symbol 


NOTE: There are several additional forms of the macros. Refer 
to the reference manual. 


THE LOAD OPERATION 


DYNAMIC 





CONTROL BLOCKS — VS2 


CVT 





TCB 


Ce >—t 
cL 
. Load List 
LLE Element LLE 
ALLE ae 
RSP. a fee et 
Count]! CDE 
Contents Directory Entry 
Load List 
ae ieee CDE CDE CDE CDE 
va oe 
Siep ae Pd 
| |g ae 
er [EP _ 
Ct 
RXL 
| Extent 
List (XL XL XL 
ot 
| aes ee eee 
a i Sa oe ee 
ees ee eee ee eee 


V.4.6 


THE LINK OPERATION 


DYNAMIC 


Z 
2 
x 








RET 
V.4.7 
% SUPERVISORY ACTION 
LINK MACRO INSTRUCTION 
[symbol] LINK EP=symbol[,DCB=dcb address] [,PARAM=(addresses)] 
[,VL=1] [,1D=number] 
NOTE: There are several additional forms of the macro. Refer to the 
reference manual. 
V.4.8 


A REQUEST BLOCK QUEUE 





Order in which control is returned by the supervisor 





Task Control Block Request biock for the Request block for interrupted Request block for the 
currently executing routine. (This RB was the first executed main 
type 2, 3, or 4SVC current RB before the SVC line program or routine 
routine interruption.) associated with this TCB. 


USE OF XCTL MACRO -—INSTRUCTION 





DYNAMIC A B 


RETURN 





% SUPERVISORY ACTION V.4.10 





XCTL MACRO INSTRUCTION 


[symbol] XCTL  [(regi[,reg2] )] ,EP=symbol[,DCB=dcb address] 


NOTE: There are several additional forms of the macro - Refer 
to the reference manual. 


V.4.11 


CALL FOLLOWED BY XCTL 


SAVE SAVE x SAVE 
LOAD B 


CALL (15 


RETURN XCTL C ? RETURN 





Program A may be destroyed RETURN POINT could be invalid. 


*% INDICATES SUPERVISION ACTION V.4.12 





CVT 


t LPAQ 


{- “PIB 


— > 


C : 
C = 
a 4 


CONTROL BLOCKS - VS1 


LPRB 


MODULE 





PIB 


f JPAQ 


JPAQ 


LPRB 


MODULE 


ee ee 





4 


LRB LPRB | 
LPAQ 


MODULE 





LRB LPRB LPRB 


ry 
TT 


MODULE MODULE 


MODULE 


rrr SD EE 





LRB LPRB 


LOAD 
LIST 
MODULE MODULE 


— =e TEER 


V.4.13 





iLast"One (Next to Last (First 
cee are Created) Created) 
Current RB) ae 


V.4.14 





COE COE COE COE COE COE 

+MOD 2 f MOD 3 tmMO0 4 tTMOOD 5 t MOD 6 t MOO 7 SOA 
PLPA pLPA PLPA 

MOD 1 MOD 2 MOD 3 











tT MOD 3 

oe | 

oe ee Bao ee, fen ee, es ee es es Fe ek se LPA 
tt 
[i 

MLPA MLPA 
| MOD 6 MOD 7 
i \ 
1 | 
Ls | 

EX CSA 

CVTLPDIA 
NUC 


CVTQLPAQ 





V.4.15 








Load ...and 
Modukes.. SVC 
routines 


ACTIVE RB QUEUE 


V.4.16 





LOAD LIST 


V.4.17 
















56 (38) JPAQ 





et et es 





JOB PACK AREA QUEUE (JPAQ} 


ae 


V.4.18 





TASKS 


DEFN: © A' PROGRAM CAPABLE OF INDEPENDENT 
EXECUTION 


eCOMPETES INDEPENDENTLY FOR CONTROL 
OF C.PU. 


°lS GIVEN CONTROL BASED ON PRIORITY 


TYPES: ¢ SYSTEM 
SYSGENED 
CREATED AT I.PL. TIME 
OPERATOR COMMANDS 


e PROCESSING PROGRAMS 
JOB STEP TASKS 


SUB TASKS vs 
-STATESOFATASK s—~—s 
LEGEND 


1. The job step is attached as a task and its task control 
block is entered into the ready queue. 


2. If this ready task has a higher priority than any other 
ready task, it is dispatched (receives control of the 
CPU). 


3. The task is placed in the wait state to await the 
completion of some event. 


4. The event being waited for is completed so the task is 
placed in ready state. 


5S. The active task relinquishes CPU control to a higher 
Priority task that has become ready. 


6. A task is completed. Its task control block is deleted 
from the ready queue and its resources are made 
available to the system. V5.2 


STATES OF A TASK 


V.5.3 





SYSTEM PRIORITY USED FOR NOW SPECIFIED , 


VS2-MVS JOB JOB SELECTION JES2 PRIORITY STATEMENT 
ADDRESS SPACE DISPATCHING THE JES2 DEFAULT 
ADDRESS SPACE DPRTY ON EXEC STATEMENT 
JOB STEP TASK DISPATCHING TASKS DEFAULTS TO APG 
WITHIN ADDRESS SPACE SET BY SYSTEM 
CHANGED BY CHAP 
SUBTASKS SAME SET BY ATTACH 
CHANGED BY CHAP 


VS2-SVS JOB JOB SELECTION PRTY ON JOB STATEMENT 
JOB STEP TASK DISPATCHING TASKS DPRTY ON EXEC STATEMENT 
DEFAULT TO JOB PRIORITY 
CHANGED BY CHAP 
SUBTASKS DETERMINED BY ATTACH 
DEFAULT TO PRIORITY OF 
ATTACHING TASK 
CHANGED BY CHAP 
VvSs1 JOB JOB SELECTION PRTY ON JOB STATEMENT 
JOB STEP TASK DISPATCHING TASKS INITIALLY DETERMINED BY 
. PARTITION PRIORITY 
CHANGED BY CHAP 
SUBTASKS SET BY ATTACH 
. ; i i DEFAULTS TO SAME AS 
CREATING TASK 
CHANGED BY CHAP 





V.5.4 





TIME-SLICING 


TCB READY QUEUE 


TS GROUP 


V.5.5 





SVS 


APG TASKS 





SUBGROUP cannes. cama eal 


SUBGROUP 





ATTACH MACRO INSTRUCTION 


[symbol] ATTACH EP=symbol[,DCB=dcb address] [,PARAM=(addresses)[,VL=1] ] 


[,ECB=ecb address] [,ETXR=exit routine address] 


[,SZERO= ite ] [, TASKLIB=dcb address] 


[,ESTAI=(exit address[,parameter list address] )] 


NONE YES 
[,PURGE= < HALT | LASYNCH=4 6 
QUIESCE 


NOTE: There are additional forms of the macro and additional operands. 


Refer 
to the reference manual. 


V.5.7 








Job Step TCB 


TCBTCB 
TCBLTC 


TCB RELATIONSHIPS 


Next Lower 
Priority 
TCB 


Subtask TCB Subtask TCB 


a | 
TCBNTC 


TCBOTC 841 TCBOTC 


= Di 


Subtask TCB Subtask TCB Subtask TCB 


TCBNTC TCBNTC 
TCBOTC TCBOTC 


TCBOTC 


V.5.8 


DETACH MACRO INSTRUCTION 


| YES 
[symbol] DETACH _ tcb location address[,STAE=} 1 \ 


EXTRACT MACRO INSTRUCTION 


[symbol] EXTRACT — answer address | , — | FieELos=(et info) 
tcb address 
tcb info: 
ALL PRI © TSO* 
GRS CMC PSB” 
FRS TIOT TJID* 


AETX COMM ASID** | 


‘ SVS and MVS ONLY 
** MVS ONLY 


V.5.10 





VALUES 


ALL 
GRS 
FRS 


AETX 


PRI 


CMC 


TIOT 
COMM 


PSB 


TSO 


TJID 


ASID 


EXTRACT FIELDS 


FIELDS TO BE EXTRACTED 


All of the following fields. 
Address of the general register save area. 


Address of the floating point register save area. 
(RESERVED) 


Address of the entry point of the asynchronous 
termination routine specified by the task that 
attached the task whose task control block is 
specified. (This routine is specified by the 

ETXR operand of the ATTACH macro-instruction.) 


Limit and dispatching priority values. (These 
values are stored into the third and fourth bytes, 
respectively, of the list word. The two high-order 
bytes of this word are set to zero.) 


Task completion code. (If the task has not 
completed, this field is zero.) 


Address of the task input/output table (TIOT). 

Address of the command scheduler communications list. The 

list consists of a pointer to the communications event control 
block and a pointer to the command input buffer. The high-order 
bit of the last pointer is set to one to indicate the end of the list. 


Address of the protected storage control block (PSCB), which ts 
extracted from the JSCB. 


Address of the time sharing flags field in the TCB. 


Terminal job identifier (TJID) of the task specified in the TCB 
location address operand. 


Address space identifier of the address space that TCB is 
running under. V.5.11 


ANSWER AREA FIELD ORDER, EXTRACT MACRO 


ANSWER AREA ADDRESS 





V.5.12 


CHAP MACRO INSTRUCTION 


[symbol] CHAP priority change value be location — 
3) 





V.5.13 
WAIT and POST MACRO INSTRUCTIONS 
ECB=ecb address _JNO s 
[symbol] WAIT event number, { ECBLIST=ecb list address vone= 48%. \ ,RELATED=value 
[symbol] POST ecb address, completion code, RELATED=value* 
“MVS Only 
V.5.14 


ABNORMAL TERMINATION OF A SUBTASK 


A 

















INITIATOR / 
TCB TERMINATOR TCB 
% 
ATTACH A 
es SUPERVISOR 
@ ABEND B 
DETACH B 
Wey Eee TERMINATE A 
POST ECB 
* 
B 
DETACH A 
TCB 
x 
DELETE TCB A 
V.5.15 


% SUPERVISORY ACTION 


ABNORMAL TERMINATION OF A TASK 


TASK FOR JOB SCHEDULER 
INITIATOR/ TERMINATOR 









SAVE 


ABEND 





RETURN 





DETACH A 


— DUMP 
— RELEASE TASK 

A's RESOURCES 
— POST ECB 


V.5.16 
% SUPERVISORY ACTION 





EVENTS TABLE 
REGISTER 1 


ne 


A(ECB2) 









A(ECBn) 


V.5.17 





EVENTS MACRO INSTRUCTION 


[symbol] EVENTS ENTRIES=n 
[symbol] EVENTS ENTRIES=DEL,TABLE=table address 


[symbol] EVENTS TABLE=table address[,WAIT= { nod \ ] [,ECB=ecb address] 


[,LAST=last address] 


V.5.18 


PROCESSING ONE EVENT AT A TIME 


EVENTS TABLE=table address,WAIT=YES 


IST TIME ISSUED: 


REGISTER 1 







[accor 
[econ 
[acs 
[nce 
reo | _ nee 





2ND TIME ISSUED: 


REGISTER 1 








a 


a 
ee 
- 

[Aces 


V.5.19 


PROCESSING MULTIPLE EVENTS 


EVENTS TABLE=table address,WAIT=YES 


REGISTER 1 








[ween 
[nec0n) 
ie cc 
_ 
i 
eo 








Assume that 3 events were processed after the 
above EVENTS was issued and then Register 2 


was loaded with the address of the last entry 
processed (ECB3). 


EVENTS TABLE=table address,WAIT=YES,LAST=(2) 


REGISTER 1 






| areca 
S| A(ECB5) 
80 A(ECB6) 


V.5.20 


LOOP 1 


LOOP2 


EOJ 


START 


EVENTS 
oT 
LA 
EVENTS 


EVENTS 
LR 

B 
EVENTS 
LR 

EQU 


(Process 


TM 
BO 
LA 


EVENTS 


PROCESSING MULTIPLE EVENTS - CODE 


ENTRIES=20 

1,TABADD 

2,ECBA 
TABLE=TABADD,ECB=(2) 


TABLE=TABADD,WAIT=YES 

3,1 Get Addr of PARM LIST 
LOOP2 Go Process ECB 
TABLE=TABADD,WAIT=YES,LAST=(3) 
3,1 


% 


Completed Events) 


0(3),X‘80’ Test for more Events 
LOOP1 IF NONE, GO WAIT 
3, 4(3) Get next entry 
LOOP2 GO Process next entry 


TABLE=TABADD,ENTRIES=DEL 


V.5.21 


ENQ MACRO INSTRUCTION 
[symbol] ENQ (qname address, rname address, =| : 


[rname length] , ao case) 


STEP 





,RET=TEST 
/,RET=USE 
,RET=HAVE 
,RET=CHNG 


V.6.1 


DEQ MACRO INSTRUCTION 


[symbol] DEQ  (qname address, rname address,[rname length] 


E 
, le PL. . RET=HAVE] 
SYSTEM 


DEQ MACRO INSTRUCTION RETURN CODES 


ole! 


See eee 


CONTROL OF THE RESOURCE HAS BEEN ) 
RELEASED. , 


CONTROL OF THE RESOURCE HAS BEEN REQUESTED! 
FOR THE TASK, BUT THE TASK HAS NOT BEEN | 
ASSIGNED CONTROL. THE TASK IS NOT REMOVED | 
FROM THE WAIT CONDITION.(THIS RETURN CODE | 
COULD RESULT IF THE DEQ MACRO INSTRUCTION | 
IS ISSUED WITHIN AN EXIT ROUTINE WHICH WAS | 
GIVEN CONTROL BECAUSE OF AN INTERRUPTION.) | 


CONTROL OF THE RESOURCE HAS NOT BEEN | 
REQUESTED BY THE ACTIVE TASKORCONTROL | 
HAS PREVIOUSLY BEEN RETURNED. | 


aS 


Te 
© 


ENO Return Codes 


CODE | 
RET-TEST | RET=USE | RET=HAVE | RET=CHNG | 


The status of the . 





















0 The resource is | Control of the resource has been 
immediately assigned to the active task. resource has been § 
available. changed to 
exclusive. 
4 The resource is not immediately The status cannot 





be changed to 


8 A previous request for control of the same resource | The resource has 
| has been made for the same task. Task has contro! [not been queued. | 
of resource. 


20 A previous request for control of the same resource |Not used. 
has been made for the same task. Task does not have 


available. 





control of resource. V.6.4 


TIME MACRO INSTRUCTION 


[symbol] TIME { DEC be 
BIN ZONE= a \ 
TU 

MIC, storage address 

STCK,storage address 


“FERRE T=error routine address 


STIMER MACRO INSTRUCTION 


[symbol] STIMER (REAL [,timer completion exit address] 
TASK [,timer completion exit address] 
WAIT 


,DINTV L=address 
,“BINTV L=address 
»TUINT\/L=address 
, |QD=address 
,M|C=address 


V.6.6 





TTIMER MACRO INSTRUCTION 


[symbol] TTIMER icanceLi[ , | 


TU 
MiC,address 


| 


SET PROGRAM INTERRUPT EXIT 





USER'S PROGRAM AREA SUPERVISOR AREA 


SIMPLE 


Interruption 
Handler 


LOAD PSW 


Interruption 
Handler 


LOAD PSW 








V.6.8 
SPIE MACRO INSTRUCTION 
[symbol] SPIE exit address, (interrupts) 
interrupts: 
1. Operation 9. Fixed-point divide 
2. Privileged operation 10. Decimal overflow (Maskable) 
3. Execute 11. Decimal divide 
4. Protection 12. Exponent overflow 
5. Addressing 13. Exponent underflow (Maskable) 
6. Specification 14. Significant (Maskable) 
7. Data 15. Floating-point divide 
8. Fixed-point overflow (Maskable) 


V.6.9 





VS1 AND SVS 


CONTROL BLOCKS & POINTERS ESTABLISHED 
BY SPIE SVC ROUTINE - 


TCB PIE PICA |] 
Ce to ee @ ts eee ee 
oO OLD 

P| PSW 

5 

PRO ae 
fe 
Tbe | 


NOTES: 
I. FIRST SPIE BUILDS PIE AND ESTABLISHES POINTERS 1 &2. 
2. SUBSEQUENT SPIES RE-ESTABLISH PICA POINTERS EG.,3. 
3. SPIE WITHOUT OPERANDS PUTS ZERO POINTER IN PIE. vane 


MVS 
CONTROL BLOCKS AND POINTERS ESTABLISHED 
BY SPIE ROUTINE 


SPIE — ROUTINE SCHEDULED BY AN SRB 





V.6.10b 


PROGRAM INTERRUPTION ELEMENT 


] 2 3 
PICA address 


BYTES 0 


2 OPSW after interruption. 
ie Register 14 
16 Register 15 









Register O 
Register | 
Register 2 


STAE EXIT ROUTINE 






— STANDARD LINKAGE CONVENTIONS 
CANNOT ISSUE STAE OR ATTACH 

— RESIDENT 

FUNCTIONS 


— PERFORM PRETERMINATION 
PROCESSING 

— DIAGNOSE 

— RETRY 


— SCHEDULE RETRY OR CONTINUE WITH 
ABEND 


V.6.11 





V.6.12 


IMPROVED FACILITIES — ESTAE 


INCREASED SIZE FOR SDWA 

SOFTWARE RECORDS ON SYS1.LOGREC 

GTF TRACE 

ESTAE EXIT CAN ISSUE ESTAE 

ESTAE EXITS CAN RECEIVE CONTROL ON 
‘CANCEL’ TYPE ABENDS 


V.6.13 


SYSTEM DIAGNOSTIC WORK AREA 


SOWA 


SAME AS FOR STAE 


EC PSW AT TIME OF ERROR 


EC PSW FROM RB RELATED 
TO ESTAE 


GENERAL PURPOSE REGISTERS 
FROM RB RELATED TO ESTAE 


ERR | SYS 
TYPE | STAT 
X’FO’ RETRY RC | FLGS 
ADDRESS 
X'140’ DUMP OPTIONS 








V.6.14 
X‘190’ USER VARIABLE RECORDING AREA 
ST TR PE ETT, ; TED 


PERCOLATION 


TERMINATE 


ESTAE RTN 
PROGRAM A 
A 
ESTAE RTN 
PROGRAM 8B RETRY 
—_$ sa ee rrr re B 


CONTINUE 


WITH 
TERMINATION 


| ESTAE RTN 
PROGRAM C C 
* ABEND 


MME 


RTM 


WS 


V.6.15 





ESTAE CONSIDERATIONS 


EXIT CAN ISSUE ESTAE or ATTACH 
PERCOLATION 

1/O Options - only for 1st EXIT 

New SDWA for each exit 

For “CANCEL” type of termination 


— TERM=YES must be specified 

— Retry request will be ignored 

— ESTAE macro ISSUED in ESTAE exit 
will have TERM=YES ignored 

Only one STAE exit will receive control 
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